home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / misc / electetc.lzx / start.opl < prev   
Text File  |  2006-02-12  |  1KB  |  67 lines
  1. PROC START:
  2. LOCAL T,MS,MM,FS,FM,KW,KW2,ST,MR,i$(1),Z%
  3. GUSE 1
  4. GAT 40,12
  5. GSTYLE 1 :GPRINT "  MOTOR RUN-UP TIMES  "
  6. Z%=GCREATE(400,0,145,149,1)
  7. GUSE Z%
  8. GAT 0,0
  9. GCLOCK ON,$25
  10. Z%=GCREATE(390,80,80,40,1)
  11. GUSE Z%
  12. GBORDER 3
  13. GAT 4,22
  14. REM GCLOCK ON,$21
  15. GSTYLE 0:GPRINT LEFT$(DATIM$,10)
  16. PRINT
  17. PRINT "Motor Speed      rpm=";
  18. INPUT MS
  19. PRINT "Fan Speed        rpm=";
  20. INPUT FS
  21. PRINT "Motor Rating      kw=";
  22. INPUT KW
  23. PRINT "Motor Inertia   kgmý=";
  24. INPUT MM
  25. PRINT "Fan Inertia         =";
  26. INPUT FM
  27. PRINT "Fan Inertia  kgmý or lbftý";
  28. i$=get$
  29. IF i$="l" OR i$="L"
  30. FM=FM*.04212 :AT 16,6 :PRINT "lbftý"
  31. ELSE
  32. AT 17,6 :PRINT "kgmý"
  33. ENDIF
  34. MR=(FM*((FS/MS)**2))+MM
  35. T=((10.96/1000000)*((MR*(MS**2))/KW))
  36. PRINT "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
  37. PRINT "Direct-On-line =      Seconds"
  38. PRINT "Star / Delta   =      Seconds"
  39. GUSE 1
  40. IF T>12
  41. GSTYLE 4
  42. ELSE
  43. GSTYLE 1
  44. ENDIF
  45. GAT 130,75
  46. IF T<100
  47. GPRINT FIX$(T,2,7)
  48. ELSE
  49. GPRINT FIX$(T,1,7)
  50. ENDIF
  51. GAT 130,90
  52. IF (T*4)<100
  53. GPRINT FIX$((T*4),2,7)
  54. ELSE
  55. GPRINT FIX$((T*4),1,7)
  56. AT 2,7:PRINT "ÍÍÍÍ(Increase Motor Size)ÍÍÍÍ"
  57. ENDIF
  58. KW2=(MR*(MS**2))/(12/(10.96/1000000))
  59. IF T>12
  60. GIPRINT "Starting Time TOO LONG"
  61. GSTYLE 1
  62. GAT 140,30
  63. GPRINT FIX$(KW2,1,7)
  64. ENDIF
  65. GET
  66. ENDP
  67.